Private Sub Worksheet_Change(ByVal Target As Range)

    Dim з As Range,  As Range
    Dim ǰ As Range
    
    Set з = Intersect(Target, Range("C5:C11"))

    If Not з Is Nothing Then
    
        For Each  In з
            
            Set ǰ = .Offset(, 1)
            
            If Len(ǰ.Value) > 0 Then
            
                ǰ.MergeArea.ClearContents
    
            End If
            
        Next
        
    End If

End Sub